home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir36
/
alrmck29.zip
/
ACUNINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-07-25
|
1KB
|
40 lines
/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysCls
say ' '
say '┌───────────────────────────────────────────┐'
say '│ │'
say '│ Alarm Clock Uninstall │'
say '│ │'
say '│ This utility will remove all Alarm Clock │'
say '│ information from your OS2.INI file. │'
say '│ │'
say '└───────────────────────────────────────────┘'
call KILLAPP
exit
KILLAPP:
do I = 1 to 5 by 1
say ' '
say ' '
say 'Press Y to continue or N to abort.'
rc = SysGetKey()
select
when rc = 'Y' then do
result = SysIni('USER', 'AlrmClk2', 'DELETE:')
return
end /* Do */
when rc = 'y' then do
result = SysIni('USER', 'AlrmClk2', 'DELETE:')
return
end /* Do */
when rc = 'N' then return
when rc = 'n' then return
otherwise beep(454, 100)
end /* select */
end /* do */
return